home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Present…ry 5: (Reseller Edition) / Apple Reference & Presentations Library 5.0 (Reseller Edition).iso / 6-Developer Demos / Developer Demos-Ed. / Macintosh School® CD-ROM Demo / Macintosh SchoolÆ CD-ROM Demo / background_53480.txt < prev    next >
Encoding:
Text File  |  1990-08-14  |  1.8 KB  |  91 lines
  1. -- background: 53480 from stack: in
  2. -- bmap block id: 53785
  3. -- flags: 4000
  4. -- background id: 0
  5. -- name: Information
  6. ----- HyperTalk script -----
  7. on doMenu menuItem
  8.   if menuItem contains "About" then
  9.     lock screen
  10.     hideFields
  11.     get short name of this card
  12.     go back
  13.     unlock screen with dissolve
  14.     wait 1 second
  15.     send "doMenu About" to background it
  16.   else if menuItem is "Home" then
  17.     lock screen
  18.     hideFields
  19.     get short name of this card
  20.     go back
  21.     unlock screen with dissolve
  22.     wait 1 second
  23.     send "doMenu Home" to background it
  24.   else if menuItem contains "Quit" then
  25.     lock screen
  26.     hideFields
  27.     get short name of this card
  28.     go back
  29.     unlock screen with dissolve
  30.     wait 1 second
  31.     send "doMenu Quit" to background it
  32.   else pass doMenu
  33.   --end if
  34. end doMenu
  35.  
  36.  
  37. on showFields
  38.   repeat with index = 1 to the number of card fields
  39.     show card field index
  40.   end repeat
  41. end showFields
  42.  
  43. on hideFields
  44.   repeat with index = 1 to the number of card fields
  45.     hide card field index
  46.   end repeat
  47. end hideFields
  48.  
  49. on lockAllFields
  50.   go to first card of this background
  51.   repeat with count = 1 to the number of cards of this background
  52.     lockFields
  53.     go next
  54.   end repeat
  55. end lockAllFields
  56.  
  57. on lockFields
  58.   repeat with index = 1 to the number of card fields
  59.     set locktext of card field index to true
  60.   end repeat
  61. end lockFields
  62.  
  63. on unlockFields
  64.   repeat with index = 1 to the number of card fields
  65.     set locktext of card field index to false
  66.   end repeat
  67. end unlockFields
  68.  
  69. on s x
  70.   show card field x
  71. end s
  72.  
  73. on h x
  74.   hide card field x
  75. end h
  76.  
  77. on l x
  78.   set locktext of card field x to true
  79. end l
  80.  
  81. on u x
  82.   set locktext of card field x to false
  83. end u
  84.  
  85. on center x
  86.   get loc of card field x
  87.   put "255" into item 1 of it
  88.   set loc of card field x to it
  89. end center
  90.  
  91.